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( START ) 



PQMINIT 



ALLOCATE STORAGE FOR VECTOR TABLE (PQMVT) 



INITIALIZE FIELDS IN VECTOR TABLE ; SET 
PQMMVT NAME TOKEN TO ADDRESS OF PQMVT 



800 



802 




814 



NO 



define PQMGRP 



IS 

PQMGRP DEFINED IN 
SYSPLEX 
? 

YES* 



816 



execute IXCJOIN to join PQMGRP 



818 



822 




YES 



820 



call PQMDTM 
(INITSYSP, VERS) 



call PQMDTM(UPDATE, VERS) 
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Free enqueue on 
SYSPQM.INITIALIZE 



INDICATE EOM EXITS AS 
EOMINIT, EOMPQM, EOMMS 



I 



Attach PQMQMGR 




WAIT 



fig- 8b 



EOMPQM 




On terminaion 



Clean-up: 

Loop thru PQMQANDX 
and find queue names for 
asid and task token. 



Go to PQMQTBL, 
read enteries and 
post all the ECBS 




fig. 9b 
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908 



EOMMS 
(START) 



Indicate PQM not active 
in PQMVT 




Clean-up storage 




EXIT 



fig. 9a 

EOMINIT 

( start) 



Set PQMMVT TASK 

TOKEN TO 0; 
LEAVE PQMGRP; 
Release PQMVT storage 
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C START y 



INITSYSP 
or INIT 




PQMDTM 



UPDATE 



Enqueue exclusive on 
SYSPQM .DISTRIBUTION TABLE 



1004 



Allocate storage for local DTM 
Put address of DTM in PQMVT 



I 



Read DTM entries from 
parmlib into local DTM 
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1006 



FUNCTION=? 
INITSYSP 



INIT 



1009 



Connect to XES list 
structure (DTM); Define 
PQMEEXIT as event handler 




1010 



Read DTM entries from 
local DTM into XES 



1012^ 



Free enqueue on 
SYSPQM .DISTRIBUTION TABLE 
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Enqueue shared on 
SYSPQM .DISTRIBUTION_TABLE 



5L 



1022 



Read DTM entries from 
XES into local DTM 




RETURN 




-1024 



Free enqueue on 
SYSPQM.DISTRIBUTION TABLE 
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PQMQMGR 



S 



(start ) 



Allocate storage for Queue Table, 
PQMQTBL 



I 



Read PQMDTMxx parmlib 
member. Place all QUEUE 
entries in PQMQTBL 



I 



Place address of PQMQTBL in 
PQMVT 



Loop through PQMQTBL queue entries 

and create queues: 

Allocate storage for queue headers 
Setup queue headers with lockwords 
Record address of queue in PQMQTBL 
entry for this queue 
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1106 



ATTACH PQMSMGR 



1108 



WAIT 
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PQMSMGR 

(start) 



Allocate common 
storage for PC table 
for C library routines 



Load code for PQMOPEN 
Load code for PQMCLOSE 
Load code for PQMRECV 
Load code for PQMSEND 



1300 



1302 



Put addresses of PQM 
routines into PC table 



Indicate PQM is 
active in PQMVT 




END 



fig- 13 



1304 



1306 



12/21 

POU9-1995-0064-US2 



( START ) 
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Look-up Q_name in PQMQTBL 



PQMOPEN 



1400 



1404 




Enqueue exclusive on SYSPQM.QTBL_<Q_name> 




> 
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Create an ECB for this ASID and Q_name 
in ECSA w/wait bit OFF 





1410 



Add address of this ECB to the end of 
ECB chain for this Q_name in the 
PQMQTBL 



T 
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Obtain address space identifier (ASID) 
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1416 


Place task token and Q_name PQMQANDX 
under entry for this ASID 





I 



Free enqueue on SYSPQM.QTBL_<Q_ name> 



1418 



1420 



Set return code to SUCCESS 



1406 



PR back to user space 




RETURN 
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( start) 
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Get entry for this ASID and task 
token from PQMQANDX 
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f 



PQMCLQSE 
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1502 





1504 



Create Q_Name_List of queue 

names by taking Q_name 
fields from PQMQANDX entry 



1506 





1508 



YES 




Set return code to SUCCESS 




PR to caller 



(return} 



Set Q_name from head of Q_Name_List 

Set Q_Name_List to be Q_Name_List minus head 
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Enqueue exclusive on 

SYSPQM.QTBL <Q name> 



1512 



Remove Q_name from PQMQANDX entry 
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Remove ECBptr for this ASID from PQMQTBL for 
this Q name 
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Free storage in ECSA used by this ECB 



I 



Free enqueue on SYSPQM.QTBL_<Q_name> 



-1518 
1520 



fig- 15 



14/21 

POU9-1995-0064-US2 



( START) 



PQMSEND 



1600 



YES 




YES 




1602 



Extract queue name from the 
replyto field of message header 



1612 



1614 



1603 



Store into Q_Name_List 
parameter 



Allocate storage for message header 



Add REPLY to option list 



Generate next request id 



Store request counter as request-id 
value in header 



1616 



1618 



Resolve Q_names list parm to list 
of sysids/address pairs(Call RESLV) 



1620 



YES 



1604 



1606 




Copy message header into M_HDR 




1624 



NO 



1608 



1610 



Set return code to 
TARGET NOT FOUND 



PR to user address space 



fig. 16a 
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Allocate storage for nexus structure; 
Copy M_HDR nexus-address field 
into the next-outer-nexus address 
field in the nexus header; 
copy address of storage to nexus 
field of M HDR 



Extract replyto-queue-name 
fromM HDR 



1681 



1632 



Initialize remainder of 
nexus header 



-1634 




Copy Tranid from PQMVT to M_HDR; 
Copy Replyto Parm to MJHDR 
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Extract nexus addr 
Establish addressal 


ess from M_HDR 
Dility to nexus 


1683^ j 


Extract limb number from M_HDR 
Copy buffer pointed to by buffer 
Ptr_List to the nexus 


1684—? 
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Decrement entries 
in nexus 


i needed counter 
header 
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fig. 16b 
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Set return code 
PR to user's AS 
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1637 



Copy M_HDR to message header 



1638 5- 1 f° 



Identify Queue to receive message 



Generate next limb # and, Set limb # in M_HDR 
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Remove head of Q_Name_List (sysid & queue - name or queue address) 



u 
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________ _ _ _ _______j 




YES 



1648 



Place message in local queue using 
address from Q Name List 



Find first waiting ECB on ECB 
chain in queue entry 



1660 



Post this ECB 



1662 
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1668 




Increment Limb 
Number of M HDR 



Set return code 

PR to user address space 



(return^ 

fig. 16d 
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Allocate storage for XCF 



•1670 



Create buffer requesting simple PQMSEND to 

this queue name 
Copy message for this queue out of passed 
buffer (parms) 



-1672 



Establish connection to XCF 
Pass buffer to PQMXMX 



-1674 




fig. 16e 
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Allocate storage for nexus completion message 
Create message header for new message 



Extract tran-id from nexus header put into new 

message header 
Extract limb number from nexus header put into 

new message header 



Concatenate each nexus entry together- 
separate each entry with H'OO' byte 



Extract next outer queue name from nexus 
header; Overlay Q_Name_List with value 
of queue name 




fig- W 
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Allocate storage for XCF 
Copy contents of passed buffer to the XCF 
storage 
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Establish connection to XCF 
Pass message to PQMXMX 
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Extract replyto sysid/queue and nexus address from M_HDR 



1693 



1694 





NO /"""" n 



Establish addressability to nexus 



1695 



Limb list Limb Number Field of M HDR 
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fig- I? 

1700 



C start) 



RESLV 



Extract address of PQMDTM 

from PQMVT 
Extract adress of PQMQTBL 

from PQMVT 
Create LIST as null list 



1702 
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Parm YES 
Q_Name_List=null list^ 
? 

no" 



1704 



Remove head of Q_Name_List 
Look-up this queue name in 
PQMDTM 



1706 



1708 




Q_Name_List= 
LIST 




RETURN 



Extract distribution list from PQMDTM entry 



1710 




1712 
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Remove head of distribution-list 



Concat. entry 
to LIST 
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Look-up this queue-name in PQMQTBL 

+ 
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Extract address 

Concatenate address as next LIST entry 



l3 



21/21 
P0U9-1995-0064-US2 



( START ) 



Locate Q name in PQMQTBL 




1802 




NO 




1804 



Set return code to 
NOT FOUND 



YES 



1806 




Remove entry at head of 
queue; Reset lock 



1818 
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Set return code to 
SUCCESS; Copy entry 
to buffer 



1812 



Set return code to 
Q_EMPTY; instruct 
to end pqmrecvQ 



1816 



Set return code to 
Q_EMPTY; 
Instructions to wait on ECB 




RETURN 
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